home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / UTIL / MEMORY / OLD / MEM208SRC / !Memphis / s / macros next >
Text File  |  1993-04-02  |  757b  |  27 lines
  1.  
  2. SWIClass        SETS    "ResourceFS"
  3.  
  4.         ^       &41B40
  5.  
  6.         AddSWI  RegisterFiles           ; &41B40
  7.         AddSWI  DeregisterFiles         ; &41B41
  8.  
  9.         MACRO
  10. $Start  ResourceFile  $InFile, $OutFile
  11. $Start  DCD     %FT60 - .         ; Offset from here to the next file
  12.         DCD     :FLOAD:"$InFile"  ; Load address of file
  13.         DCD     :FEXEC:"$InFile"  ; Exec address of file
  14.         DCD     :FSIZE:"$InFile"  ; The length of the file
  15.         DCD     3                 ; Access bits (always WR/)
  16.         DCB     "$OutFile",0      ; The ResourceFS filename
  17.         ALIGN
  18.         DCD     %FT40-%FT20+4     ; The file length plus four
  19. 20
  20.         BIN     $InFile           ; The file itself
  21. 40
  22.         ALIGN
  23. 60
  24.         MEND
  25.  
  26.         END
  27.